(symbols 'bounce 'pico)

(def 'continue list)

(de done (R)
  (cons NIL R) )

(de trampoline (F . @)
  (let A (rest)
    (use R
      (loop
        (NIL
          (car (setq R (apply F A) ) )
          (cdr R) )
        (setq
          F (car R)
          A (cdr R) ) ) ) ) )